home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earcd
/
devel
/
vbcc-wos-src
/
vlink
/
errors.c
< prev
next >
Wrap
C/C++ Source or Header
|
1999-01-01
|
8KB
|
207 lines
/* $VER: vlink errors.c V0.6a (19.12.98)
*
* This file is part of vlink, a portable linker for multiple
* object formats.
* Copyright (c) 1997-99 Frank Wille
*
* vlink is freeware and part of the portable and retargetable ANSI C
* compiler vbcc, copyright (c) 1995-99 by Volker Barthelmann.
* vlink may be freely redistributed as long as no modifications are
* made and nothing is charged for it. Non-commercial usage is allowed
* without any restrictions.
* EVERY PRODUCT OR PROGRAM DERIVED DIRECTLY FROM MY SOURCE MAY NOT BE
* SOLD COMMERCIALLY WITHOUT PERMISSION FROM THE AUTHOR.
*
*
* v0.6a (19.12.98) phx
* Error 61, when objects have different endianess.
* v0.6 (23.10.98) phx
* Shared objects (60).
* v0.5e (05.10.98) phx
* Error 59.
* v0.5a (28.06.98) phx
* Multiple symbol definition (error 19) was turned into a warning.
* v0.4 (05.06.98) phx
* Warnings for section-merging.
* v0.3 (15.04.98) phx
* Changed all "%s(%s+0x%x):" strings into "%s (%s+0x%x):"
* New error messages for ELF and AR support.
* v0.1 (27.02.98) phx
* First version that seems to link AmigaOS ADOS and EHF
* objects and libraries. Many common features, like linking
* sections together which have relative references, are
* still missing. Also, PowerPC-ELF32 support is about to come.
* v0.0 (04.08.97) phx
* File created. Project started on a beautiful summer-day
* at the North Sea beach of Cuxhaven. :)
* Based on errors.c v0.4 of the portable PowerPC assembler "pasm".
*/
#define ERRORS_C
#include "vlink.h"
/* error flags */
#define EF_NONE 0
#define EF_WARNING 1
#define EF_ERROR 2
#define EF_FATAL 3
void error(int,...);
void ierror(char *,...);
static struct {
char *txt;
int flags;
} errors[] = {
/* startup, command line */
"",EF_NONE,
"Out of memory",EF_FATAL, /* 01 */
"Unrecognized option '%s'",EF_WARNING,
"Unknown link mode: %s",EF_WARNING,
"Unknown argument for option -d: %c",EF_WARNING,
"Option '-%c' requires an argument",EF_FATAL, /* 05 */
"No input files",EF_FATAL,
"File \"%s\" has a read error",EF_FATAL,
"Cannot open \"%s\": No such file or directory",EF_FATAL,
"Invalid target format \"%s\"",EF_FATAL,
"Directory \"%s\" could not be examined",EF_ERROR, /* 10 */
"%s: File format not recognized",EF_FATAL,
"\"%s\" is already an executable file",EF_WARNING,
"%s: File format corrupted",EF_FATAL,
"Can't open \"%s\" for output",EF_WARNING,
"%s: Unexpected end of section %s in %s",EF_FATAL, /* 15 */
"%s: %s appeared twice in %s",EF_FATAL,
"%s: Misplaced %s in %s",EF_FATAL,
"%s: Symbol definition %s in %s uses unsupported type %d",EF_FATAL,
"%s: Global symbol %s (%s) is already defined in %s (%s)",EF_WARNING,
"%s: Unresolved reference to symbol %s in %s uses " /* 20 */
"unsupported type %d",EF_FATAL,
"%s (%s+0x%x): Undefined reference to %s",EF_ERROR,
"Protection of section %s was changed from %s to %s",EF_WARNING,
"Alignment of section %s was changed from %d to %d",EF_WARNING,
"%s (%s+0x%x): Illegal relative reference to %s+0x%x",EF_ERROR, /* 24 */
"%s (%s+0x%x): %dbit relative reference to %s+0x%x out of range",EF_ERROR,
"%s (%s+0x%x): Referenced absolute symbol %s=0x%x + 0x%x "
"doesn't fit into %d bits",EF_ERROR,
"%s (%s+0x%x): Illegal relative reference to symbol %s",EF_ERROR,
"%s (%s+0x%x): Relative reference to relocatable symbol %s=0x%x + 0x%x "
"doesn't fit into %d bits",EF_ERROR,
"Can't create output file %s",EF_ERROR,
"Target file format doesn't support shared objects",EF_ERROR, /* 30 */
"Error while writing to %s",EF_FATAL,
"Target %s: Unsupported relocation type %s at %s+0x%x",EF_ERROR,
"Target %s: Can't reproduce symbol %s, which is a %s%s%s",EF_ERROR,
"Option '%s' requires an argument",EF_FATAL,
"-baseoff offsets are valid from 0 to 0x8000",EF_WARNING, /* 35 */
"%s (%s+0x%x): Base relative reference to relocatable symbol "
"%s=0x%x + 0x%x doesn't fit into %d bits",EF_ERROR,
"%s: Malformatted archive member %s",EF_FATAL,
"%s: Empty archive ignored. Unable to determine file format",EF_WARNING,
"%s: %s doesn't support shared objects in library archives",EF_FATAL,
"%s: %s doesn't support executables in library archives",EF_FATAL,/* 40 */
"%s (%s): Illegal format / file corrupted",EF_FATAL,
"%s: Consistency check for archive member %s failed",EF_FATAL,
"%s: Invalid ELF section header index (%d) in %s",EF_FATAL,
"%s: ELF section header #%d has illegal offset in %s",EF_FATAL,
"%s: ELF section header string table has illegal type in %s", /* 45 */
EF_ERROR,
"%s: ELF section header string table has illegal offset in %s",EF_ERROR,
"%s: ELF program header table in %s was ignored",EF_WARNING,
"%s: ELF section header type %d in %s is not needed in "
"relocatable objects",EF_WARNING,
"%s: Illegal section offset for %s in %s",EF_FATAL,
"%s: ELF %s table has illegal type in %s",EF_FATAL, /* 50 */
"%s: ELF %s table has illegal offset in %s",EF_FATAL,
"%s: %s in %s defines relocations relative to a non-existing ELF "
"section with index=%d",EF_FATAL,
"%s: Symbol %s, defined in %s, has an invalid reference to "
"a non-existing ELF section with index=%d",EF_FATAL,
"%s: Illegal ELF symbol type %d for %s in %s",EF_ERROR,
"%s: ELF symbol %s has illegal binding type %d in %s",EF_ERROR, /* 55 */
"%s: Symbol %s in %s is multiply defined (first occurence in %s)",EF_ERROR,
"%s: Merging a code section with name \"__MERGED\"",EF_WARNING,
"Relative references between %s section \"%s\" and %s section "
"\"%s\" (%s) force a combination of the two",EF_WARNING,
"Can't define %s as section label. Symbol already exists.",EF_ERROR,
"%s: ELF section header type %d in %s is not needed in " /* 60 */
"shared objects",EF_WARNING,
"%s: Endianess differs from previous objects",EF_FATAL,
};
void error(int errn,...)
/* prints errors and warnings */
{
struct GlobalVars *gv = &gvars;
va_list vl;
char *errtype;
int flags = errors[errn].flags;
if ((flags == EF_WARNING) && gv->dontwarn)
return;
switch(flags) {
case EF_WARNING:
errtype = "Warning";
break;
case EF_ERROR:
gv->returncode = EXIT_FAILURE;
errtype = "Error";
break;
case EF_FATAL:
gv->returncode = EXIT_FAILURE;
errtype = "Fatal error";
break;
default:
ierror("Illegal error type %d",flags);
gv->returncode = EXIT_FAILURE;
errtype = "";
break;
}
/* print error message */
fprintf(stderr,"%s %d: ",errtype,errn);
va_start(vl,errn);
vfprintf(stderr,errors[errn].txt,vl);
va_end(vl);
fprintf(stderr,".\n");
switch(flags) {
case EF_ERROR:
/* check if maximum number of errors reached */
if (++gv->errcnt >= gv->maxerrors) {
gv->errcnt = 0;
fprintf(stdout,"Do you want to continue (y/n) ? ");
fflush(stdin);
if (toupper((unsigned char)getchar()) == 'N')
cleanup(gv);
}
/* avoid writing of output file in error case */
gv->errflag = TRUE;
break;
case EF_FATAL:
fprintf(stderr,"Aborting.\n"); /* fatal error aborts the linker */
cleanup(gv);
break;
}
}
void ierror(char *errtxt,...)
/* display internal error and quit */
{
struct GlobalVars *gv = &gvars;
va_list vl;
fprintf(stderr,"\nINTERNAL ERROR: ");
va_start(vl,errtxt);
vfprintf(stderr,errtxt,vl);
va_end(vl);
fprintf(stderr,".\nAborting.\n");
cleanup(gv);
}